val prendre: ?afficher:bool -> (* Vrai si on doit afficher les infos *)
	     ?tictoc1:((unit -> unit) * (unit -> unit)) -> (* Relatif au temps passé à distribuer *)
	     ?tictoc2:((unit -> unit) * (unit -> unit)) -> (* Résolution *)
	     Tarotv.t -> (* le client *)
	     ((unit -> unit) (* travailler *)
	      * (unit -> Carte.carte * float * float * float))
	       (* appelée - on la fait avec quelle probabilité - points - bouts *)

val ecarter: ?afficher:bool ->
	     ?tictoc1:((unit -> unit) * (unit -> unit)) ->
	     ?tictoc2:((unit -> unit) * (unit -> unit)) ->
	     Tarotv.t ->
	     ((unit -> unit)
	      * (unit -> Carte.carte list * float) (* Points *)
	      * int) (* Nombre d'écarts possibles *)

val jouer: ?afficher:bool ->
	   ?tictoc1:((unit -> unit) * (unit -> unit)) ->
	   ?tictoc2:((unit -> unit) * (unit -> unit)) ->
	   Tarotv.t ->
	   ((unit -> unit)
	    * (unit -> Carte.carte * float * float * float * int)) (* dernier int : le nombre de distributions réussies *)

val vraisemblable: Carte.carte list -> int -> float
(** 

[vraisemblable cartes enchere] retourne un  nombre grand si le preneur
a vraisemblablement fait  une enchère [enchere] avec  le jeu [cartes],
et petit sinon.

 *)
